home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / 16r1.dir / 00001.ls next >
Encoding:
Text File  |  1999-09-17  |  2.2 KB  |  83 lines
  1. on startMovie
  2.   global gCursorReady
  3.   puppetSprite(46, 1)
  4.   gCursorReady = 0
  5.   set the mouseDownScript to EMPTY
  6.   set the mouseUpScript to EMPTY
  7.   sprite(22).visible = 0
  8. end
  9.  
  10. on checktheroll
  11.   repeat with i = 1 to 48
  12.     if rollOver(i) then
  13.       put i
  14.     end if
  15.   end repeat
  16. end
  17.  
  18. on idle
  19.   global gCursorReady
  20.   if gCursorReady = 1 then
  21.     cursor(200)
  22.     checkCursors()
  23.     set the locH of sprite 46 to the mouseH
  24.     set the locV of sprite 46 to the mouseV
  25.     updateStage()
  26.   end if
  27. end
  28.  
  29. on checkCursors
  30.   global gMagCursor
  31.   set the castNum of sprite 46 to the number of member "curs1"
  32.   if the castNum of sprite 5 and rollOver(5) then
  33.     set the castNum of sprite 46 to the number of member gMagCursor
  34.   end if
  35.   if the castNum of sprite 3 and rollOver(3) then
  36.     set the castNum of sprite 46 to the number of member "cursLeft"
  37.   end if
  38.   if the castNum of sprite 4 and rollOver(4) then
  39.     set the castNum of sprite 46 to the number of member "cursRight"
  40.   end if
  41.   if the castNum of sprite 5 and rollOver(5) then
  42.     set the castNum of sprite 46 to the number of member "cursDown"
  43.   end if
  44.   if the castNum of sprite 6 and rollOver(6) then
  45.     set the castNum of sprite 46 to the number of member "cursUp"
  46.   end if
  47.   if the castNum of sprite 10 and rollOver(10) then
  48.     set the castNum of sprite 46 to the number of member "hotCursor"
  49.   end if
  50.   if the castNum of sprite 18 and rollOver(18) then
  51.     set the castNum of sprite 46 to the number of member "hotCursor"
  52.   end if
  53.   repeat with i = 23 to 25
  54.     if the castNum of sprite i and rollOver(i) then
  55.       set the castNum of sprite 46 to the number of member "magCursor"
  56.     end if
  57.   end repeat
  58.   if the castNum of sprite 26 and rollOver(26) then
  59.     set the castNum of sprite 46 to the number of member "deMagCursor"
  60.   end if
  61. end
  62.  
  63. on initmovies
  64.   global currentmovie, currentframe
  65.   currentmovie = "Dummy"
  66. end
  67.  
  68. on initcursor
  69.   set the cursor of sprite 3 to 131
  70.   set the cursor of sprite 4 to 129
  71.   set the cursor of sprite 6 to 3
  72.   set the cursor of sprite 10 to 132
  73.   set the cursor of sprite 12 to 3
  74. end
  75.  
  76. on unsetcursor
  77.   set the cursor of sprite 3 to 0
  78.   set the cursor of sprite 4 to 0
  79.   set the cursor of sprite 6 to 0
  80.   set the cursor of sprite 10 to 0
  81.   set the cursor of sprite 12 to 0
  82. end
  83.